Die Speccy' 97/Die Speccy' 97.iso/amiga_system/the_aminet/comm/bbs/hydra_fcv0_38b.lha/hydra-fc/rexx/Hydra-FC.rexx

OS/2 REXX Batch file | 1995-09-11 | 22KB | 779 lines

/* Hydracom-FastCall Port V0.38▀
   Datum : 11.09.1995
   Autor : Mxlprx / Deep Forest BBS */

signal on Syntax

/********* Verbindung mit Messageport *********/

parse arg Port Brett SerDevice baud unit

ADDRESS value "rexx_FastCall"||port
options results

/***** Zeit- und Datumsvariablen einlesen *****/

ud=date(e)" "time()
filedatum=substr(ud,1,2)||"."||substr(ud,4,2)||".19"||substr(ud,7,2)" "substr(ud,10,2)"."substr(ud,13,2)"."substr(ud,16,2)
datum=substr(ud,1,2)"."substr(ud,4,2)".19"substr(ud,7,2)
uhrzeit=substr(ud,10,8)

/********** Definition von sonstigen Variablen **********/
cr=d2c(13)||d2c(10)
cls=d2c(12)
version="V0.38▀"

if ~exists("S:Hydra-FC.cfg") then do
        send cls||cr"Konfigurationsfile nicht vorhanden!"cr||cr"Bitte dem Sysop Bescheid geben."
        quit
        exit
end

open(Config,"S:Hydra-FC.cfg","R")
    CheckDupe=readln(Config)
    dtfile='"'readln(Config)'"'
    pip=readln(Config)
    ExtraULDL=readln(Config)
    Hydradir=readln(Config)
    Hydradir2=readln(Config)
    readln(Config)
    sopvtr=readln(Config)
close(Config)

/********** REXXSupport.library ÷ffnen... **********/

IF ~SHOW('LIBRARIES','rexxsupport.library') THEN
    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN do
        send "Library nicht installiert -> Sysop Bescheid geben"
        quit
        exit
    end

/************* ANSI-Farb-Variablen ************/

ANSI
Emul=result
if Emul="OFF" then signal NOANSI

/* ANSI-Farb-Variablen zuweisen */

ANSIFarben:
  C1=""
  C2=""
  C3=""
  C4=""
  C5=""
  C6=""
  C7=""
 Res=""
  B0=""
  B1=""
  B2=""
  B3=""
  B4=""
  B5=""
  B6=""
  B7=""
signal weiter

/* Farb-Variablen bei Monochrom */

NOANSI:
  C1=""
  C2=""
  C3=""
  C4=""
  C5=""
  C6=""
  C7=""
 Res=""
  B0=""
  B1=""
  B2=""
  B3=""
  B4=""
  B5=""
  B6=""
  B7=""

weiter:

/********** Multilanguage Config **********/

/* Language 0 (here = english) */

title.0       =B4||C7"     HydraCom - FastCall Port "version" / (c) 1995 by Mxlprx / Sysop Deep Forest  "Res||cr
nothyddir.0   =C2"This is no board for Hydra-Transfers!"cr||B4||C7"Please use the Hydra-board instead!"Res||cr||cr
notenoughbc.0 =C2"Sorry, not enough byte-credits!"Res||cr||cr
startxfer.0   =C7"Really start transfer? "C7"[ "C3||B4"Y"B0||C7"/"C2"N"C7" ] "Res
yep.0         ="Y"
inithyd.0     =C7||B1"Initiating Hydracom!"B0
abort.0       =C1"^X to abort."Res||cr
fincom.0      =C5"found incomplete uploads:"Res||cr
contUL.0      =C2"Do you want to resume uploading? "Res
delnow.0      =C2"Delete unfinished files? "Res
deliUL.0      =C3"Deleting incomplete Uploads."Res
noupps.0      ="No Uploaded Files!"
lookatdir.0   =C3"Looking for uploaded files..."Res
asksl.0       =C3"Do You want to download these files later?"Res
contUL2.0     ="Do You want to continue uploading them later? "
thanx.0          ="Thank You for using Hydra!"
nosel.0       ="No Files selected!"
dlspace.0     ="Your bytecredits are: "
found.0          ="found: "
foundentry.0  =C1"found entry! "cr||cr||C3"That file is/was already here!"cr||C5"Informing Sysop of your duplicate upload"C6"..."
readsel.0     ="Reading Selectlist..."
dupe.0        =C2"Dupe-Check "C7"initiated.."
t1.0          ="#Hi, %a2"
t2.0          ="#On %a5"
t3.0          ="%a6 you have started to upload a File"
t4.0          ="that could not be finished because of"
t5.0          ="#a %a7carrier loss%a6 !"
t6.0          ="The File is called:"
t7.0          ="#%a1Remember! %a7This File can %a3ONLY%a7 be finished using Hydra!"
of.0          ="of"
dlsuccess.0   =C2"All files successfully downloaded! Have phun!"
notdlyet.0    =C2"The following files haven't been downloaded yet:"
badboard.0    =C6"This board is being used already! Please choose the other Hydra-board."cr||C2"Or just play an online-game right now :)"

/* Language 1 (here = german) */

title.1       =B4||C7"     HydraCom - FastCall Port "version"  /  (c) 1995 Mxlprx / Sysop Deep Forest   "Res||cr
nothyddir.1   =C2"Dies ist kein Brett fⁿr Hydra-Transfers!"cr||B4||C7"Bitte benutze anstelle diesem das Hydra-Brett!"Res||cr||cr
notenoughbc.1 =C2"Du hast nicht genug Download-Freiraum!"Res||cr||cr
startxfer.1   =C7"Wirklich die ▄bertragung starten? "C7"[ "C3||B4"J"B0||C7"/"C2"N"C7" ] "Res
yep.1         ="J"
inithyd.1     =C7||B1"Hydracom wird gestartet!"B0
abort.1       =C1"Abbruch mit CTRL-X."Res||cr
fincom.1      =C5"UnvollstΣndige Uploads gefunden:"Res||cr
contUL.1      =C2"M÷chtest Du diese Files weiter uploaden? "Res
delnow.1      =C2"Sollen die unvollstΣndigen Files gel÷scht werden? "Res
deliUL.1      =C3"L÷sche die unvollstΣndigen Uploads..."Res
noupps.1      ="Keine Uploads vorhanden!"
lookatdir.1   =C3"Suche nach Uploads..."Res
asksl.1       =C3"M÷chtest Du diese Files spΣter downloaden?"Res
contUL2.1     ="Willst Du diese Files spΣter weiter uploaden? "
thanx.1       ="Vielen Dank fⁿr die Benutzung von Hydra!"
nosel.1          ="Keine Files gemerkt!"
dlspace.1     ="Dein Downloadfreiraum betrΣgt: "
found.1       ="gefunden: "
foundentry.1  =C1"Eintrag gefunden! "cr||cr||C3"Dieses File ist/war bereits hier!"cr||C5"Informiere Sysop von Deinem Doppel-Upload"C6"..."cr||cr
readsel.1     ="Lese Merk-Liste..."
dupe.1        =C2"Dupe-Check "C7"gestartet.."
t1.1          ="#Hallo, %a2"
t2.1          ="#Du hast am %a5"
t3.1          ="%a6 begonnen, ein File zu uploaden,"
t4.1          ="#da▀ wegen eines %a7Carrierverlustes%a6 nicht"
t5.1          ="fertig geuppt werden konnte !"
t6.1          ="Das File hei▀t:"
t7.1          ="#%a1Achtung! %a7Dieses File kann %a3NUR%a7 mit Hydra weiter geuppt werden !"
of.1          ="von"
dlsuccess.1   =C2"Alle Files wurden erfolgreich downgeloadet! Viel Spa▀!"
notdlyet.1    =C2"Die folgenden Files wurden noch nicht downgeloadet:"
badboard.1    =C6"Dieses Brett wird bereits benutzt! Bitte das andere Hydra-Brett wΣhlen."cr||C2"Oder spiel doch mal ein Online-Game :)"

/********** Beginn **********/

/* User-Daten auslesen */

askuser
user=result
US_FR
freiraum=result
lng=1
SPRACHE
spr=result
if spr="Deutsch" then lng=1
if spr="Englisch" then lng=0
US_RA
ratio=result
US_BA
linebaud=result

IF ~exists('mb:user/'user'/Hydra.BAD') then address command 'C:Makedir mb:user/'user'/Hydra.BAD'
IF ~exists('mb:HydraLog') then address command 'C:Makedir mb:HydraLog'
IF ~exists('mb:HydraLogFile') then address command 'C:Makedir mb:HydraLogFile'

/* Titel ausgeben */

SEND cls||cr||title.lng||cr

/* Auf welchem Port sind wir? Ist das Hydra-Brett schon belegt? */

pt=""

IF port~=0 then pt=port

/* Ist der User im richtigen Brett? Wenn ja, Brett belegen (Multiport) */

Brett=right(Brett,length(Brett)-2)
Brett=left(Brett,length(Brett)-1)

IF upper(Brett)~=upper(Hydradir) then do
    if upper(Brett)~=upper(Hydradir2) then do
          send cr||nothyddir.lng
          quit
          exit
    end
end

If open(dummy,"T:"Brett,"R")=1 then do
    send badboard.lng
    close(dummy)
    quit
    exit
end

open(dummy,"T:"Brett,"W")
close(dummy)

/* Existiert das Hydra-Temp-Direktory? */

IF ~exists('hbin:'Brett'/temp/') then do
          address command 'C:Makedir hbin:'Brett'/temp'
          end

/* Gibt es unvollstΣndige Uploads? */

if exists('mb:user/'user'/Hydra.BAD/BAD-XFER.LOG') then do
    address command 'list mb:user/'user'/Hydra.BAD/ QUICK NOHEAD FILES >T:SAVER.log'Port
    open(flist,"T:SAVER.log"Port,"READ")
    HydDir=readln(flist)
    if HydDir='' then break
    else do
        send fincom.lng||C7||cr
        open(bad,'mb:user/'user'/Hydra.BAD/BAD-XFER.LOG','R')
            do until eof(bad)=1
                Logline = readln(bad)
                if length(LogLine)>5 then do
                    parse var logline fname badname fsize x
                    badsize=word(statef('mb:user/'user'/Hydra.BAD/'badname),2)
                    send C6||left(fname,20," ")C7" - "C6||right(badsize,8," ")C7" "of.lng" "C6||right(fsize,8," ")C7" Bytes"cr
                end
            end
        close(bad)
        SEND cr||cr||contUL.lng" "c7"["c1||b4||yep.lng||b0||c7"/"c3"N"c7"] "
        BLUEREAD 1
        jn=result
        if upper(jn)="" then jn=yep.lng
        if upper(jn)=yep.lng then do
            address command 'move >NIL: mb:user/'user'/Hydra.BAD/BAD-XFER.#? to hbin:'Brett'/temp/'
        end
        else do
            SEND cr||delnow.lng" "c7"["c3||yep.lng||c7"/"c1||b4"N"b0||c7"] "
        BLUEREAD 1
        jn=result
        if upper(jn)="" then jn="N"
        if upper(jn)=yep.lng then do
            send cr||deliUL.lng
            address command 'delete mb:user/'user'/Hydra.BAD/BAD-XFER.#?'
            end
        end
    end
end

close(flist)

send cr

/* Hydra-Send-Liste erstellen und Byte-Credits-Daten lesen */

bcred=0; num=0

send cr||C2||readsel.lng||cr
send cr||C4"--"C7"[ "C2"Filename "C7"]"C4"--------------------.-"C7"[ "C2"Bytecredits "C7"]"C4"----------------"cr

if exists("mb:temp/merken"pt) then do
    open(mlist,"mb:temp/merken"pt,"R")
    open(Hydralst,"t:UL"port,"W")

    do while eof(mlist)=0
        if eof(mlist)=0 then do
            line=readln(mlist)
            if line~="" then do
                num=num+1
                writeln(Hydralst,line)
                credz=readln(mlist)
                bcred=bcred+credz
                a=1
                name=right(line,a)
                do while left(name,1)~="/"
                    a=a+1
                    name=right(line,a)
                end
                name.num=right(line,a-1)
                loc.num=left(line,length(line)-length(name)+1)
                c=length(name.num)+3
                d=32-c
                if credz=0 then credz="Free Leech!"
                send "    "C7||name.num||insert(" "," ",0,d," ")||C4"|  "C7||insert(" ",credz,0,(12-length(credz))," ")||cr
            end
        end
    end
    close(mlist)
    close(Hydralst)
end

ELSE send C3"    *** "nosel.lng" ***"cr

send C4".--------------------.---------.--+--------------------------------"cr
send C4"|                    `-"C7"[ "C2"Sum"C7":"C4"  |     "C7||insert(" ",bcred,0,(12-length(bcred))," ")||cr
send C4"|                              `-----------------------------------"cr
send C4"|"cr
send C4"`------"C7"[ "C2"User-Ratio: "C3"1"C7":"C3||ratio||C4" ]-----"cr

send cr||cr||C2||dlspace.lng||C7||freiraum||C3" Bytes"cr||cr

/* Checken, ob User genug Download-Freiraum hat */

t=freiraum-bcred

if t<0 then do
    send cr||cr||notenoughbc.lng||cr
    if exists('hbin:'Brett'/temp/BAD-XFER.LOG') then address command 'move hbin:'Brett'/temp/BAD-XFER.#? to mb:user/'user'/Hydra.BAD/'
    quit
    exit
end

/* User fragen, ob der Transfer tatsΣchlich gestartet werden soll */

SEND startxfer.lng
BLUEREAD 1
jn=result
if jn="" then jn=yep.lng
if upper(jn)="N" then do
    if exists("T:UL"port) then address command "delete T:UL"port
    if exists('hbin:'Brett'/temp/BAD-XFER.LOG') then address command 'move hbin:'Brett'/temp/BAD-XFER.#? to mb:user/'user'/Hydra.BAD/'
    address command "delete t:"Brett
        quit
        exit
end

/* Hydra-Transfer starten! */

send cr||cr||cr"   "inithyd.lng||"                         "abort.lng

if exists("mb:HydraLogFile/Hydra.log") then address command 'delete mb:HydraLogFile/Hydra.log'

if exists("T:UL"port) then address command 'c:hydracom speed 'baud' line 'linebaud' port 'Port' device 'Serdevice' dropdtr receive hbin:'Brett'/temp/ result mb:HydraLogFile/Hydra.Log nobell handshake hard send @T:UL'port
else address command 'c:hydracom speed 'baud' line 'linebaud' port 'Port' device 'Serdevice' dropdtr receive hbin:'Brett'/temp/ result mb:HydraLogFile/Hydra.Log nobell handshake hard send'

/* Rⁿckmeldung des anderen Hydracom-Ports abfangen */

i=0
ruck:
    getchar
    i=i+1
if i<=100 then do
    signal ruck
end

/* HydraLog auswerten und Downloadfreiraum anpassen */

bcredz=0

open(log,'mb:HydraLogFile/Hydra.log','R')

if ExtraULDL=1 then do
    if exists('mb:HydraLog/ULoads') then open(ul,'mb:HydraLog/ULoads','A')
        else open(ul,'mb:HydraLog/ULoads','W')
    if exists('mb:HydraLog/DLoads') then open(dl,'mb:HydraLog/DLoads','A')
        else open(dl,'mb:HydraLog/DLoads','W')
    end

if exists('mb:protokolle/UpDownloadprotokoll') then open(uldl,'mb:protokolle/UpDownloadprotokoll','A')
else open(uldl,'mb:protokolle/UpDownloadprotokoll','W')

upps=0; downs=0; bytedown=0

do until eof(log)
    Logline=readln(log)
    parse var Logline transt fsize x x cps x x x x x fname x

    if transt='H' then do
    do a=1 to num
        if (loc.a||name.a)=fname then do
            if ratio~=0 then bcredz=bcredz+fsize
            If ExtraULDL=1 then writeln(dl,C2||datum' 'uhrzeit' 'C7||user||C6' 'left(cps,4,' ')' CPS 'left(name.a,16,' ')' 'right((fsize%1024),4,' ')' KB')
            writeln(uldl,uhrzeit' 'datum' 'user' H-Download 'left(loc.a||name.a,50,' '))
            downs=downs+1
            call ChangeSelectList
            bytedown=bytedown+fsize
            end
        end
    end
    else if transt='R' then do
            If ExtraULDL=1 then writeln(ul,C2||datum' 'uhrzeit' 'C7||user||C6' 'left(cps,4,' ')' CPS 'left(fname,16,' ')' 'right((fsize%1024),4,' '))
            if pip=1 then writeln(uldl,uhrzeit' 'datum' 'user' H-Upload   'left(fname,16,' ')' 'right((fsize),8,' ')' Bytes')
            upps=upps+1
            end
end

close(log)
close(ul)
close(dl)
close(uldl)

/* Download-Credits abziehen, Upload-Credits macht der Filechecker */

US_FR
newfr=result-bcredz
US_FR newfr

US_DO
newdo=result+bytedown
US_DO newdo

if upps=0 then do
    send cr||cr||C3||noupps.lng||cr
    end
else send cr||lookatdir.lng||cr||cr

/* Files einsortieren mit FDizCheck */

address command 'list hbin:'Brett'/temp/ QUICK NOHEAD FILES >T:SAVER.log'Port
if exists('T:SAVER.log'Port) then do
    open(flist,"T:SAVER.log"Port,"READ")

    File=""
    do while eof(flist)=0
        if eof(flist)=0 then do
            File=readln(flist)
            if File~="" then do
                do z=1 to words(File)
                actfile=word(File,z)
                if left(actfile,8)="BAD-XFER" then address command 'move hbin:'Brett'/temp/BAD-XFER.#? to mb:user/'user'/Hydra.BAD/'
                    else do
                    send C7||found.lng||C2||actfile||cr
                    if CheckDupe=1 then do
                        call DupeCheck
                        If Dupe=0 then address command 'rx c:fdiz-HydraFC 'port' /'Brett' hbin:'Brett'/temp/'File' 'lng
                        end
                    else address command 'rx c:fdiz-HydraFC 'port' /'Brett' hbin:'Brett'/temp/'File' 'lng
                    end
                end
            end
        end
    end
end

/* Hydra-Select-File und Hydra.Logfile l÷schen */

address command "delete mb:HydraLogFile/Hydra.log"
if exists('T:UL'port) then address command "delete T:UL"port
if exists('T:SAVER.log'Port) then address command "Delete T:Saver.log"Port

/* Postprocessing Unit

CHECKCARRIER
carrier=result
if carrier="NO CARRIER" then signal ncmail

 Hat der User unvollstΣndige Uploads hinterlassen? */
if exists('mb:user/'user'/Hydra.BAD/BAD-XFER.LOG') then do
    HydDir=showdir('mb:user/'user'/Hydra.BAD','f')
    if HydDir='' then break
    else do
        send fincom.lng||C7||cr
        open(bad,'mb:user/'user'/Hydra.BAD/BAD-XFER.LOG','R')
            do until eof(bad)
                Logline = readln(bad)
                if logline~="" then do
                    parse var logline fname badname fsize x
                    badsize=word(statef('mb:user/'user'/Hydra.BAD/'badname),2)
                    send C6||left(fname,20," ")C7" - "C6||right(badsize,8," ")C7" of "C6||right(fsize,8," ")C7" Bytes"cr
                end
            end
        close(bad)
        SEND cr||cr||contUL2.lng" "c7"["c1||b4||yep.lng||b0||c7"/"c3"N"c7"] "
        BLUEREAD 1
        jn=result
        if jn="" then jn=yep.lng
        if upper(jn)="N" then do
            SEND cr||delnow.lng" "c7"["c3||yep.lng||c7"/"c1||b4"N"b0||c7"] "
            BLUEREAD 1
            jn=result
            if upper(jn)="" then jn="N"
            if upper(jn)=yep.lng then do
                send deliUL.lng
                address command 'delete mb:user/'user'/Hydra.BAD/BAD-XFER.#?'
                end
            end
    end
end
send cr

/* Sind noch nicht gedownloadete Files vorhanden? */

if ~exists("mb:temp/merken"pt) & (downs=0) then signal ende

if ~exists("mb:temp/merken"pt) then do
            send cr||dlsuccess.lng||cr
            signal ende
            end

send cls||cr||title.lng||cr||cr

send notdlyet.lng||cr
send cr||C4"--"C7"[ "C2"Filename "C7"]"C4"--------------------.-"C7"[ "C2"Bytecredits "C7"]"C4"----------------"cr

num=0
open(mlist,"mb:temp/merken"pt,"R")
    do while eof(mlist)=0
        if eof(mlist)=0 then do
            line=readln(mlist)
            if line~="" then do
                num=num+1
                credz=readln(mlist)
                a=1
                name=right(line,a)
                do while left(name,1)~="/"
                    a=a+1
                    name=right(line,a)
                end
                name.num=right(line,a-1)
                c=length(name.num)+3
                d=32-c
                if credz=0 then credz="Free Leech!"
                send "    "C7||name.num||insert(" "," ",0,d," ")||C4"|  "C7||insert(" ",credz,0,(12-length(credz))," ")||cr
            end
        end
    end
    close(mlist)

send cr||C2||asksl.lng" "c7"["c3||b4||yep.lng||b0||c7"/"c1"N"c7"] "

BLUEREAD 1
jn=result
if upper(jn)="" then jn=yep.lng
if upper(jn)~=yep.lng then address command 'delete mb:temp/merken'pt

send cr

/* Ende!!! */

ende:
send cr||C2||thanx.lng||Res||cr
address command "delete t:"Brett
quit
exit

/* DupeCheck */

DupeCheck:
if dtfile="" then return
Dupe=0
send cr||dupe.lng
    address command 'search 'dtfile' 'file' >ram:dupechk'port
    open(i,"ram:dupechk"port,"R")
    send "."
    len=seek(i,0,"E")
    send "."
    close(i)
    send "."
    if len>0 then do
        send foundentry.lng
        Call MoveFileToSchrott
        Dupe=1
    end
    if len=0 then do
    send C3"OK!"cr
    address command  "delete ram:dupechk"port
    end
return

/* Syntax-Fehler-Routine */

syntax:
send "Error occured! Line: "sigl" --> "rc", "errortext(rc)||cr
send "Please notify the Sysop, giving him Line- and Error-Nr. !"
quit
exit

/* NO CARRIER - Brief an User und Sysop */

ncmail:
if exists('mb:user/'user'/Hydra.BAD/BAD-XFER.LOG') then do
    call nocarriermailuser
    muser="SYSOP"
    call nocarriermailsysop
    if sopvtr=1 then do
        open(vtr,"mb:user/sysop/vertreter","R")
            do until eof(vtr)
            muser=readln(vtr)
                if muser~="" then call nocarriermailsysop
            end
        close(vtr)
    end
end
address command "delete t:"Brett
quit
exit

nocarriermailsysop:

if exists("mb:user/"muser"/.index") then open(index,"mb:user/"muser"/.index","A")
                  else open(index,"mb:user/"muser"/.index","W")
if exists("mb:user/"muser"/.txt") then open(txt,"mb:user/"muser"/.txt","A")
                else open(txt,"mb:user/"muser"/.txt","W")
    seek(index,0,E)
    lentxt=seek(txt,0,E)

    writeln(index,lentxt)
    writeln(index,filedatum"    1 Asc Hydra-System     <<< Incomplete Uploads >>>")
    close(index)

/* Text schreiben */

    writeln(txt,"Absender  : Hydra-System")
    writeln(txt,"Betreff   : <<< Incomplete Upload >>>")
    writeln(txt,"Datum     : "||datum)
    writeln(txt,"Uhrzeit   : "||uhrzeit)
    writeln(txt,"Zeilen    : 31")
    writeln(txt,"")
    writeln(txt,"")
    writeln(txt,"#Hallo "muser", der User %a2"||user||"%a6 hat begonnen, ein File")
    writeln(txt,"zu uppen, da▀ er wegen eines Carrierverlustes nicht zuende")
    writeln(txt,"uppen konnte!")
    writeln(txt,"")
    writeln(txt,"")
    writeln(txt,"Das File hei▀t:")
    writeln(txt,"")
    open(bad,'mb:user/'user'/Hydra.BAD/BAD-XFER.LOG','R')
        do until eof(bad)
        Logline = readln(bad)
                parse var logline fname badname fsize x
                writeln(txt,"#%a7"left(fname,20," "))
        end
    close(bad)
    close(txt)
return

nocarriermailuser:
    if exists("mb:user/"user"/.index") then open(index,"mb:user/"user"/.index","Append")
                      else open(index,"mb:user/"user"/.index","Write")
    if exists("mb:user/"user"/.txt") then open(txt,"mb:user/"user"/.txt","Append")
                    else open(txt,"mb:user/"user"/.txt","Write")
        seek(index,0,E)
        lentxt=seek(txt,0,E)

        writeln(index,lentxt)
        writeln(index,filedatum"    1 Asc Hydra-System     <<< Incomplete Uploads >>>")
        close(index)

        writeln(txt,"Absender  : Hydra-System")
        writeln(txt,"Betreff   : <<< Incomplete Upload >>>")
        writeln(txt,"Datum     : "||datum)
        writeln(txt,"Uhrzeit   : "||uhrzeit)
        writeln(txt,"Zeilen    : 31")
        writeln(txt,"")
        writeln(txt,"")
        writeln(txt,t1.lng||user||"%a6 !")
        writeln(txt,t2.lng||datum||t3.lng)
        writeln(txt,t4.lng)
        writeln(txt,t5.lng)
        writeln(txt,"")
        writeln(txt,"")
        writeln(txt,t6.lng)
        writeln(txt,"")

    open(bad,'mb:user/'user'/Hydra.BAD/BAD-XFER.LOG','R')
        do until eof(bad)
        Logline = readln(bad)
                parse var logline fname badname fsize x
                writeln(txt,"#%a7"left(fname,20," "))
        end
        writeln(txt,"")
        writeln(txt,t7.lng)
    close(bad)
    close(txt)
return

/* File nach Schrott moven */

MoveFileToSchrott:
address command 'c:move hbin:'Brett'/temp/'File' to mb:schrott'
muser="SYSOP"
call MovedMail
if sopvtr=1 then do
    open(vtr,"mb:user/sysop/vertreter","R")
        do until eof(vtr)
        muser=readln(vtr)
            call MovedMail
        end
    close(vtr)
end


MovedMail:

if ~exists("mb:user/"muser"/userdaten") then return

if exists("mb:user/"muser"/.index") then open(index,"mb:user/"muser"/.index","A")
                  else open(index,"mb:user/"muser"/.index","W")
if exists("mb:user/"muser"/.txt") then open(txt,"mb:user/"muser"/.txt","A")
                else open(txt,"mb:user/"muser"/.txt","W")

    seek(index,0,E)
    lentxt=seek(txt,0,E)

    writeln(index,lentxt)
    writeln(index,filedatum"    1 Asc Hydra-Upload     <<< Deleted File >>>")
    close(index)

/* Text schreiben */

    writeln(txt,"Absender  : Hydra-Upload")
    writeln(txt,"Betreff   : <<< Deleted File >>>")
    writeln(txt,"Datum     : "||datum)
    writeln(txt,"Uhrzeit   : "||uhrzeit)
    writeln(txt,"Zeilen    : 31")
    writeln(txt,"")
    writeln(txt,"")
    writeln(txt,"#Hallo "muser", der User %a2"||user||"%a6 hat ein File geuppt,")
    writeln(txt,"das schon mal da war und deshalb gel÷scht wurde!")
    writeln(txt,"")
    writeln(txt,"#%a2Das File hei▀t: %a3"File)
    writeln(txt,"")
    writeln(txt,"#Es befindet sich nun in %a3mb:schrott/%a6.")
    close(txt)
return

/* EintrΣge der Select-Liste Σndern */

ChangeSelectList:

chng=0
open(mlist,"mb:temp/merken"pt,"R")
open(mlist2,"t:merken"pt,"W")
    do while eof(mlist)=0
        if eof(mlist)=0 then do
            line=readln(mlist)
            if line~="" then do
                if line~=fname then do
                    writeln(mlist2,line)
                    credz=readln(mlist)
                    writeln(mlist2,credz)
                    end
                else do
                    chng=1
                    readln(mlist)
                end
            end
        end
    end
close(mlist)
close(mlist2)

if chng=1 then address command 'copy t:merken'pt' to mb:temp/'

open(i,"mb:temp/merken"pt,"R")
    len=seek(i,0,"E")
close(i)
if len=0 then do
    address command  "delete mb:temp/merken"pt
end

address command 'delete t:merken'pt
return